home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Window, returning handle of active < prev    next >
Encoding:
Text File  |  1997-07-16  |  269 b   |  8 lines
  1. 'Description: Returns HWND of active window
  2.  
  3. 'Private Declare Function M_GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
  4. 'Function GetActiveWindow() As Long
  5. Dim xHwnd       As Long
  6. xHwnd = M_GetActiveWindow()
  7. GetActiveWindow = xHwnd
  8. 'End Function